home *** CD-ROM | disk | FTP | other *** search
/ Windows Expert / Windows Expert.iso / others / amimacro.zip / PSYLITPG.SMM < prev    next >
INI File  |  1992-08-26  |  7KB  |  479 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     ~macro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     ANSI (Windows, IBM CP 1252)
  9. [revisions]
  10.     0
  11. [prn]
  12.     CITIZEN Dot Matrix
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [desc]
  18.     PSYCHLIT.SMM Purge and Total only.
  19.     
  20.     
  21.     
  22.     
  23.     714839475
  24.     21
  25.     698364731
  26.     811
  27.     2
  28.     0
  29.     0
  30.     0
  31.     0
  32.     
  33.     
  34.     
  35.     
  36.     
  37.     
  38.     0
  39. [fopts]
  40.     0
  41.     1
  42.     0
  43.     0
  44. [lnopts]
  45.     2
  46.     Body Text
  47.     1
  48. [docopts]
  49.     5
  50.     2
  51. [GramStyle]
  52.     
  53. [l1]
  54.     0
  55. [pg]
  56.     2
  57.     60 0 53 0 0 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  58.     104 0 10 1025 80 0 0 216 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  59. [edoc]
  60. @Function@<:ZPsychlLitImport>FUNCTION PsychLitProcess()<:Z~PsychlLitImport>
  61.  
  62. <:#216,10800>Darkmode(1)
  63.  
  64. <:#216,10800>Hourglass(1)
  65.  
  66. <:#216,10800>Onerror endit
  67.  
  68. <:#216,10800>Oncancel endit
  69.  
  70. <:#216,10800>t=0
  71.  
  72. <:#216,10800>u=0
  73.  
  74. <:#216,10800>w=0
  75.  
  76. <:#216,10800>ab=0
  77.  
  78. <:#216,10800>n=0
  79.  
  80. <:#216,10800>Dim Usednum(100)
  81.  
  82. <:#216,10800>Dim Abstract(900)
  83.  
  84. <:#216,10800>Dim Words(100)
  85.  
  86. <:#216,10800>Dim Used(900)
  87.  
  88. <:#216,10800>Dim terms(100)
  89.  
  90. @Function@<:#216,10800>Purge:
  91.  
  92. <:#216,10800>ans=Decide("Do You Want to Purge and Total the Records?")
  93.  
  94. <:#216,10800>If ans=0
  95.  
  96. <:#216,10800>    goto endit
  97.  
  98. <:#216,10800>Endif
  99.  
  100. <:#216,10800>check=Decide("Do You Want to Check for Reoccuring Abstracts?")
  101.  
  102. <:#216,10800>Replace(0,0,5,"TI","")
  103.  
  104. <:#216,10800>Type("<[>Home]<[>up]")
  105.  
  106. <:#216,10800>PurgeLoop:
  107.  
  108. <:#216,10800>    msg=ab+1
  109.  
  110. <:#216,10800>    StatusBarMsg("Processing Record {msg}")
  111.  
  112. <:#216,10800>    Type("<[>SHIFTEnd]<[>Del]")
  113.  
  114. <:#216,10800>    Type("<[>F6] {msg} of abtotal")
  115.  
  116. <:#216,10800>    found=Replace(0,0,5,"AN","")
  117.  
  118. <:#216,10800>    If found<<<;>1
  119.  
  120. <:#216,10800>        goto total
  121.  
  122. <:#216,10800>    Endif
  123.  
  124. <:#216,10800>    Type("<[>End]<[>CTRLSHIFTLeft]")
  125.  
  126. <:#216,10800>    Second=CurShade$()
  127.  
  128. <:#216,10800>    Type("<[>CTRLLeft]<[>CTRLSHIFTLeft]")
  129.  
  130. <:#216,10800>    First=CurShade$()
  131.  
  132. <:#216,10800>    abnum=strcat$(first,second)
  133.  
  134. <:#216,10800>    If check=1
  135.  
  136. <:#216,10800>        For a = 1 to ab
  137.  
  138. <:#216,10800>            If abnum=used(a)
  139.  
  140. <:#216,10800>                StatusBarMsg("Deleting Extra Copy of {abnum}")
  141.  
  142. <:#216,10800>                Type("<[>CTRLPGDN]" )
  143.  
  144. <:#216,10800>                Type("<[>CTRLSHIFTPGUp]")
  145.  
  146. <:#216,10800>                Type("<[>Del]")
  147.  
  148. <:#216,10800>                Goto purgeloop
  149.  
  150. <:#216,10800>            Endif
  151.  
  152. <:#216,10800>        Next
  153.  
  154. <:#216,10800>    Endif
  155.  
  156. <:#216,10800>    ab=ab+1
  157.  
  158. <:#216,10800>    Used(ab)=abnum
  159.  
  160. <:#216,10800>    Abstract(ab)=strcat$(first,"-",second," = #{ab}")    
  161.  
  162. <:#216,10800>    Type("<[>Down]")
  163.  
  164. <:#216,10800>    If curword$()="Abstracts"
  165.  
  166. <:#216,10800>        goto total
  167.  
  168. <:#216,10800>    Endif
  169.  
  170. <:#216,10800>goto PurgeLoop
  171.  
  172. @Function@<:#216,10800>Total:
  173.  
  174. <:#216,10800>Replace(0,0,9221,"abtotal",ab) 
  175.  
  176. <:#216,10800>StatusBarMsg("Creating The Index.")
  177.  
  178. <:#216,10800>found=Replace(0,0,5,"Abstracts in File by Number","")
  179.  
  180. <:#216,10800>If found=1
  181.  
  182. <:#216,10800>    Type("<[>home]<[>CTRLShiftEnd]<[>Del]")
  183.  
  184. <:#216,10800>Else Type("<[>CTRLEnd]")
  185.  
  186. <:#216,10800>Endif
  187.  
  188. <:#216,10800>Type("<[>F6]Abstracts in File by Number<[>enter]<[>F2]")
  189.  
  190. <:#216,10800>Underline()
  191.  
  192. <:#216,10800>ArraySort(&Abstract)
  193.  
  194. <:#216,10800>rows=round(ab/4)
  195.  
  196. <:#216,10800>hold=mod(ab,"4")
  197.  
  198. <:#216,10800>If hold=1
  199.  
  200. <:#216,10800>    rows=rows+1
  201.  
  202. <:#216,10800>Elseif hold=2
  203.  
  204. <:#216,10800>    rows=rows+1
  205.  
  206. <:#216,10800>Endif
  207.  
  208. <:#216,10800>For c = 1 to rows
  209.  
  210. <:#216,10800>    col=1
  211.  
  212. <:#216,10800>    ab=c
  213.  
  214. <:#216,10800>    RowLoop:
  215.  
  216. <:#216,10800>        abnum=abstract(ab)
  217.  
  218. <:#216,10800>        Type("{abnum}")
  219.  
  220. <:#216,10800>        If col=4
  221.  
  222. <:#216,10800>            Type("<[>enter]")
  223.  
  224. <:#216,10800>            goto loopbreak
  225.  
  226. <:#216,10800>        Endif
  227.  
  228. <:#216,10800>        Type("<[>tab]")
  229.  
  230. <:#216,10800>        col=col+1
  231.  
  232. <:#216,10800>        ab=ab+rows
  233.  
  234. <:#216,10800>    goto rowloop
  235.  
  236. <:#216,10800>    LoopBreak:
  237.  
  238. <:#216,10800>Next
  239.  
  240. @Function@Endit:
  241.  
  242. <:#216,10800>Darkmode(0)
  243.  
  244. <:#216,10800>HourGlass(0)
  245.  
  246. <:#216,10800>StatusbarMsg("")
  247.  
  248. @Function@<:#216,10800>END FUNCTION
  249.  
  250. <:#216,10800>
  251.  
  252. @Function@<:#216,10800>DIALOG Box2
  253.  
  254. <:#216,10800>FONT 8 "Helv"
  255.  
  256. <:#216,10800>-2134376448 4 97 43 142 94 "" "" "PsychLit Import"
  257.  
  258. <:#216,10800>8 8 72 16 1000 1342177280 "static" "Select Terms To Make Italic:" 0 
  259.  
  260. <:#216,10800>9 25 72 67 9500 1344471041 "combobox" "" 0 
  261.  
  262. <:#216,10800>90 8 40 14 1 1342373889 "button" "OK" 0 
  263.  
  264. <:#216,10800>90 32 40 14 2 1342373888 "button" "Cancel" 0 
  265.  
  266. @Function@<:#216,10800>END DIALOG
  267.  
  268. >
  269.  
  270. [Embedded]
  271. 00004386
  272. >
  273. [macsum] 2
  274. PsychLitProcess 0 0 23 0
  275. Box2 1882 0 -1 96
  276. [macse]
  277. 14 PsychLitProcess
  278. 0 292 1
  279. 0 296 1
  280. 20 00001842
  281. 19 00001842
  282. 5 0
  283. 8 1
  284. 5 0
  285. 8 2
  286. 5 0
  287. 8 3
  288. 5 0
  289. 8 4
  290. 5 0
  291. 8 5
  292. 5 100
  293. 21 6 [X]
  294. 5 900
  295. 21 7 [X]
  296. 5 100
  297. 21 8 [X]
  298. 5 900
  299. 21 9 [X]
  300. 5 100
  301. 21 10 [X]
  302. 0 2 "Do You Want to Purge and Total the Records?"
  303. 13
  304. 8 11
  305. 6 11
  306. 5 0
  307. 18 0
  308. 11 00000304
  309. 10 00001842
  310. 0 2 "Do You Want to Check for Reoccuring Abstracts?"
  311. 13
  312. 8 12
  313. 2 488 1 0 0 5 "TI" ""
  314. 0 6 "[36][38]"
  315. 6 4
  316. 5 1
  317. 3 0
  318. 8 13
  319. 0 789 "Processing Record {13}"
  320. 0 6 "[4131][46]"
  321. 0 6 "[117] {13} of abtotal"
  322. 2 488 1 0 0 5 "AN" ""
  323. 13
  324. 8 14
  325. 6 14
  326. 5 1
  327. 18 1
  328. 11 00000583
  329. 10 00001115
  330. 0 6 "[35][20517]"
  331. 0 24
  332. 13
  333. 8 15
  334. 0 6 "[16421][20517]"
  335. 0 24
  336. 13
  337. 8 16
  338. 0 16 "{16}" "{15}"
  339. 13
  340. 8 17
  341. 6 12
  342. 5 1
  343. 18 0
  344. 11 00000947
  345. 5 1
  346. 8 18
  347. 6 4
  348. 6 18
  349. 18 2
  350. 12 00000805
  351. 10 00000947
  352. 5 1
  353. 6 18
  354. 3 0
  355. 8 18
  356. 10 00000727
  357. 6 17
  358. 6 18
  359. 22 9
  360. 18 0
  361. 11 00000934
  362. 0 789 "Deleting Extra Copy of {17}"
  363. 0 6 "[16418]"
  364. 0 6 "[20513]"
  365. 0 6 "[46]"
  366. 10 00000407
  367. 10 00000770
  368. 6 4
  369. 5 1
  370. 3 0
  371. 8 4
  372. 6 4
  373. 6 17
  374. 23 9
  375. 6 4
  376. 0 16 "{16}" "-" "{15}" " = #{4}"
  377. 13
  378. 23 7
  379. 0 6 "[40]"
  380. 0 23
  381. 13
  382. 7 "Abstracts"
  383. 18 0
  384. 11 00001102
  385. 10 00001115
  386. 10 00000407
  387. 2 488 1 0 0 9221 "abtotal" "{4}"
  388. 0 789 "Creating The Index."
  389. 2 488 1 0 0 5 "Abstracts in File by Number" ""
  390. 13
  391. 8 14
  392. 6 14
  393. 5 1
  394. 18 0
  395. 11 00001302
  396. 0 6 "[36][20515][46]"
  397. 10 00001317
  398. 0 6 "[16419]"
  399. 0 6 "[117]Abstracts in File by Number[13][113]"
  400. 2 256 1
  401. 0 1043 &7
  402. 6 4
  403. 5 4
  404. 4 1
  405. 0 786 [X]
  406. 13
  407. 8 19
  408. 0 788 "{4}" "4"
  409. 13
  410. 8 20
  411. 6 20
  412. 5 1
  413. 18 0
  414. 11 00001514
  415. 6 19
  416. 5 1
  417. 3 0
  418. 8 19
  419. 10 00001566
  420. 6 20
  421. 5 2
  422. 18 0
  423. 11 00001566
  424. 6 19
  425. 5 1
  426. 3 0
  427. 8 19
  428. 5 1
  429. 8 21
  430. 6 19
  431. 6 21
  432. 18 2
  433. 12 00001656
  434. 10 00001842
  435. 5 1
  436. 6 21
  437. 3 0
  438. 8 21
  439. 10 00001577
  440. 5 1
  441. 8 22
  442. 6 21
  443. 8 4
  444. 6 4
  445. 22 7
  446. 8 17
  447. 0 6 "{17}"
  448. 6 22
  449. 5 4
  450. 18 0
  451. 11 00001762
  452. 0 6 "[13]"
  453. 10 00001829
  454. 0 6 "[9]"
  455. 6 22
  456. 5 1
  457. 3 0
  458. 8 22
  459. 6 4
  460. 6 19
  461. 3 0
  462. 8 4
  463. 10 00001678
  464. 10 00001621
  465. 0 292 0
  466. 0 296 0
  467. 0 789 ""
  468. 6 0
  469. 15
  470. 9
  471. DIALOG Box2
  472. FONT 8 "Helv" 
  473. -2134376448 4 97 43 142 94 "" "" "PsychLit Import" 
  474. 8 8 72 16 1000 1342177280 "static" "Select Terms To Make Italic:" 0 
  475. 9 25 72 67 9500 1344471041 "combobox" "" 0 
  476. 90 8 40 14 1 1342373889 "button" "OK" 0 
  477. 90 32 40 14 2 1342373888 "button" "Cancel" 0 
  478. 00004411
  479.